1 POKE53280,6:POKE53281,4:PRINTCHR$(142):PRINT"[147][155]":FORTT=1TO8:READTT$(TT):NEXT
2 PRINTTT$(1):PRINTTT$(2):PRINTTT$(3):PRINTTT$(2)
3 PRINTTT$(4):PRINTTT$(2):PRINTTT$(5):PRINTTT$(2)
4 PRINTTT$(6):PRINTTT$(2):PRINTTT$(7):FORTT=1TO6:PRINTTT$(2):NEXT:PRINTTT$(8)
5 FORTT=1TO2:PRINTTT$(2):NEXT:PRINTTT$(1)
6 DATA"          #####################"
7 DATA"          #                   #"
8 DATA"          # MATHEMATIK  018   #"
9 DATA"          # DIESES PROGRAMM   #"
10 DATA"          # LOEST GLEICHUNGS- #"
11 DATA"          # SYSTEME MIT       #"
12 DATA"          # 3 UNBEKANNTEN.    #"
13 DATA"          #  PUBLIC  DOMAIN   #"
14 WAIT 198,1:POKE198,0
15 PRINT"[147]DIE GLEICHUNGEN MUESSEN VON DER ART :
16 [153]" AX + BY + CZ = D":[153]"SEIN."
17 [153]"GEBEN SIE DIE ERSTEN  PARAMETER EIN     (A,B,C,D)"
18 [133]A1,B1,C1,D1
19 [153]"JETZT FUER DIE ZWEITE GLEICHUNG :":[133]A2,B2,C2,D2
20 [153]"UND SCHLIESSLICH FUER DIE DRITTE :":[133]A3,B3,C3,D3
21 E1[178]((B1[172]A2)[173]A1)[171]B2
22 E2[178]((C1[172]A2)[173]A1)[171]C2
23 E3[178]((B1[172]A3)[173]A1)[171]B3
24 E4[178]((C1[172]A3)[173]A1)[171]C3
25 E5[178]((E1[172]E4)[171](E2[172]E3))
26 [139]E5[178]0[167]37
27 E6[178]((D1[172]A2)[173]A1)[171]D2
28 E7[178]((D1[172]A3)[173]A1)[171]D3
29 Y[178]((E6[172]E4)[171](E2[172]E7))[173]E5
30 Z[178]((E1[172]E7)[171](E6[172]E3))[173]E5
31 X[178](D1[173]A1)[171]((B1[173]A1)[172]Y)[171]((C1[173]A1)[172]Z)
32 [153]"LOESUNG :
33 PRINT"X =";X
34 PRINT"Y =";Y
35 PRINT"Z =";Z
36 GOTO38
37 PRINT"ES WURDEN UNGENUEGEND ODER FALSCHE DATENEINGEGEBEN !"
38 PRINT"FORTSETZUNG DURCH EINGABE EINER 1,      STOP BEI EINGABE EINER 0."
39 GETA$:IFA$=""THEN39
40 IFA$="1"GOTO15
41 END